use warnings;
use strict;
use Data::Dumper;

my $var;
my @arr;
my %hash;
my $tmp;

$var = 3413.233;
$tmp = "sjfj";
print "hello\n";
format STDOUT = 
=========================
@###.##
$var
@<<<<< @<<<<<
$tmp, $tmp
=========================
.
#$~ = STDOUT;
#select(FILE);
write;